Exploring Where & Why/Exploring Where & Why.iso/pc/Lib.cst/00048_MemoryTools.ls

Text File | 2004-07-11 | 413 b | 32 lines

--
-- MemoryTools
--

property ancestor


on new me
  -- set constants:

  -- initialize the ancestor:
  set ancestor = new (script "RootAncestor")

  return me
end


-- clear out all of my stuff
on destruct me
  -- destruct my chain
  if objectP (ancestor) then destruct (ancestor)
  set ancestor = 0
end


on unloadCast me
  if the freeBytes < (1600 * 1024) then
    unloadMember
    unload
  end if
end